home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / kang / the grand design (v1c < prev    next >
Text File  |  1999-06-15  |  812b  |  31 lines
  1. Category: kang
  2. Title: the Grand Design     (v.1c)
  3. Copyright: na
  4. Author: kangaroo@asan.com
  5. Filename: GRAND-D.8BF
  6.  
  7. R:put((sqr(sin(y*ctl(0)*330/255)*sin(X+y*ctl(0)*100/255))*(cos(tan(y*y*val(3,300,-300)*40/455)&tan(x*x*val(2,300,-300)*40))))/val(1,800,-600),1),put(get(1)*val(6,10,1000)/val(4,5,50)/val(5,5,500),0),get(0)&256?511%(get(0)&511):get(0)+src(y,y,z)
  8.  
  9. G:c+put(get(1)*val(6,10,1000)/val(4,5,50)/val(5,5,500),0),get(0)&256?511%(get(0)&511):get(0)+src(y,y,z)
  10.  
  11. B:c+put(get(1)*val(6,10,1000)/val(4,5,50)/val(5,5,500),0),get(0)&256?511%(get(0)&511):get(0)+src(y,y,z)
  12.  
  13. A:a
  14.  
  15. ctl[0]: Weft
  16. ctl[1]: global Weave
  17. ctl[2]: X-ish
  18. ctl[3]: Y-ish
  19. ctl[4]: light values 1
  20. ctl[5]: light values 2
  21. ctl[6]: thickener
  22.  
  23. val[0]: 20
  24. val[1]: 66
  25. val[2]: 161
  26. val[3]: 138
  27. val[4]: 124
  28. val[5]: 26
  29. val[6]: 59
  30.  
  31.